let l= [("Don",435.);("Nut",75.);("Toto",42.)];;

let compare a b= match a with
              a when a>b -> 1
             |a when a=b -> 0
	     |_          -> (-1);;

let rec find x l= match l with
               (a,b)::l when x=a -> b
              |(a,b)::l          -> find x l
              |_                 -> failwith "Ce client n'existe pas";;
find "Toto" l;;
